BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Education/A/Australia HTB v1.0.cpt/Australia HyperTextBook 1.0/background_2738.xml

Extensible Markup Language | 1991-10-28 | 16KB | 390 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2738</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3816.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3185.css" />
    <part>
        <id>29</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>315</left>
            <top>303</top>
            <right>490</right>
            <bottom>315</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>9</textSize>
        <textStyle>outline</textStyle>
        <name>Enter words to search for below:</name>
        <script></script>
    </part>
    <part>
        <id>6</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>1</left>
            <top>43</top>
            <right>511</right>
            <bottom>301</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>body</name>
        <script>on enterinfieldget the selectedchunkif the value of it = "" then exit enterinfielddo "put lowertoupper(the value of it) into " & itset textstyle of it to bold,groupput lowertoupper(the value of it) & return after fld finderend enterinfieldon mouseupselect the clickchunkput the clicktext into findwhatlock screenfind whole findwhat in fld 2if the result ≠ "" then answer "No match for keyword “" & findwhat & "”... It will be in the next update..."click at 0,0end mouseup</script>
    </part>
    <part>
        <id>16</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>1</left>
            <top>306</top>
            <right>38</right>
            <bottom>341</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13409</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>?</name>
        <script>on mouseUpput "1000" into listTextDialog 1100,monaco,9,list,1ShowDialog 5,333,50end mouseUp</script>
    </part>
    <part>
        <id>17</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>284</left>
            <top>306</top>
            <right>321</right>
            <bottom>341</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>12122</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Links</name>
        <script>on mouseupglobal stext,listset lockmessages to trueset cursor to 4put fld 4 into stextif stext = "" thenanswer "You haven't selected anything to search for."exit mouseupend ifput stext into holderput the number of this cd into numput "" into listput "One moment please..."put "Searching for links to “" & holder & "”..."put the number of cds into counterlock screenput 0 into firstcdpush cardgo cd 2repeatfind holderif (the result = "") and (the number of this cd ≠ firstcd) thenif firstcd = 0 then put the number of this cd into firstcdif the short name of this cd ≠ "" thenput return after last line of listif fld keywords ≠ "" thenput line 1 of fld keywords after last line of listend ifend ifgo nextelseexit repeatend ifend repeatpop cardunlock screenchoose browse toolset locktext of fld keywords to trueif list ≠ "" thensort lines of listshowdialog 7,5003,"What links to" && holder & "?",monaco,9,list,1,"one"put the result into holderif line 1 of holder = 1 thenfind whole (line (line 2 of holder) of list) in fld 2click at 0,0end ifelseshowdialog 1,3756,"No links to “" & holder & "” found.",truechoose browse toolend ifhide msgend mouseup</script>
    </part>
    <part>
        <id>20</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>39</left>
            <top>306</top>
            <right>76</right>
            <bottom>341</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>28345</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>back</name>
        <script>on mouseupgo cd 1end mouseup</script>
    </part>
    <part>
        <id>21</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>77</left>
            <top>306</top>
            <right>114</right>
            <bottom>341</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>17151</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>prev</name>
        <script>on mouseUpgo prevend mouseUp</script>
    </part>
    <part>
        <id>22</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>115</left>
            <top>306</top>
            <right>152</right>
            <bottom>341</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>25409</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>next</name>
        <script>on mouseUpgo nextend mouseUp</script>
    </part>
    <part>
        <id>23</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>153</left>
            <top>306</top>
            <right>190</right>
            <bottom>341</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>6584</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>output</name>
        <script>on mouseUpanswer "Output to printer or to text file?" with "Printer" or "File"¬or "Cancel"if it = "Cancel" thenexit mouseupelse if it = "Printer" thenanswer "Print the stack or this card?" with "Stack" or¬"Card" or "Cancel"if it = "Cancel" thenexit mouseupelse if it = "Stack" thenrepeat with x = 3 to the number of cdsprint fld bodyend repeatelse if it = "Card" thenprint fld bodyend ifelse if it = "File" thenanswer "Save a file of the Stack or of this Card?" with "Stack" or¬"Card" or "Cancel"if it = "Cancel" thenexit mouseupelse if it = "Stack" thenput the number of cds into countergo cd 1put the short name of this stack & ".txt" into tfilenameput PutFile("Save text as:",tfilename) into textfileif textfile = "" then exit mouseupset cursor to 4set the loc of message to 10,120put "Writing to file " & textfile & ".  Please wait..."into messageopen file textfilerepeat (counter - 1)go nextwrite fld keywords to file textfilewrite return to file textfilewrite fld body to file textfilewrite return to file textfilewrite return to file textfileend repeatclose file textfilego cd 1play harpsichord c e g bbflash 1put "Done." into messagewait 2 secondshide messageelse if it = "Card" thenput fld keywords & ".txt" into tfilenameput PutFile("Save text as:",tfilename) into textfileif textfile = "" then exit mouseupopen file textfilewrite fld body to file textfileclose file textfileend ifend ifend mouseUp</script>
    </part>
    <part>
        <id>25</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>1</left>
            <top>21</top>
            <right>511</right>
            <bottom>42</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>keywords</name>
        <script>on mouseupglobal stext,listPUT ME INTO STEXTset lockmessages to trueset cursor to 4if stext = "" thenanswer "You haven't selected anything to search for."exit mouseupend ifput stext into holderput the number of this cd into numput "" into listput "One moment please..."put "Searching for links to “" & holder & "”..."put the number of cds into counterlock screenput 0 into firstcdpush cardgo cd 2repeatfind holderif (the result = "") and (the number of this cd ≠ firstcd) thenif firstcd = 0 then put the number of this cd into firstcdif the short name of this cd ≠ "" thenput return after last line of listif fld keywords ≠ "" thenput line 1 of fld keywords after last line of listend ifend ifgo nextelseexit repeatend ifend repeatpop cardunlock screenchoose browse toolset locktext of fld keywords to trueif list ≠ "" thensort lines of listshowdialog 7,5003,"What links to" && holder & "?",monaco,9,list,1,"one"put the result into holderif line 1 of holder = 1 thenfind whole (line (line 2 of holder) of list) in fld 2click at 0,0end ifelseshowdialog 1,3756,"No links to “" & holder & "” found.",truechoose browse toolend ifhide msgend mouseup</script>
    </part>
    <part>
        <id>28</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>1</left>
            <top>43</top>
            <right>185</right>
            <bottom>303</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>finder</name>
        <script></script>
    </part>
    <part>
        <id>30</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>322</left>
            <top>314</top>
            <right>511</right>
            <bottom>341</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>31</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>225</left>
            <top>309</top>
            <right>255</right>
            <bottom>339</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>10177</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>File Loader</name>
        <script>on mouseUppush cardgo lastput filename("TEXT") into manxif manx = "" then exit to hypercardrepeatif last char of manx ≠ ":" then delete last char of manxelsedelete last char of manxexit repeatend ifend repeatput files(manx,"TEXT") into wazrepeat with x = 1 to the number of lines of wazput manx & ":" & line x of waz into thisdomenu new cardopen file thisread from file this for 15000put it into fld 1read from file this for 14995put it after fld 1put this into titlerepeatget offset(":",title)if it = 0 then exit repeatelse delete char 1 to it of titleend repeatput title into fld 2close file this--wipeout thisend repeatgo firstend mouseUp</script>
    </part>
    <name></name>
    <script>on opencardif there is not a menu "Keywords" then create menu "Keywords"put fld "finder" into menu "keywords"set scroll of fld 1 to 0end opencardon closecardif the number of this cd ≠ 1 thensort lines of fld 3end ifend closecardon domenu what,whereif where ≠ "keywords" then pass domenulock screenfind whole what in fld 2if the result ≠ "" then answer "No match for keyword “" & what & "”... It will be in the next update..."click at 0,0end domenu</script>
</background>